Especial Multimedia/Especial Multimedia.iso/Multimed/Musica/ZMUD32.ZIP/ZMUD.EXE/0/RCDATA/TBUTTONDIALOG/TBUTTONDIALOG.txt

Text File | 1997-06-09 | 37KB | 1,240 lines

object ButtonDialog: TButtonDialog
  Left = 247
  Top = 163
  HelpContext = 150
  ActiveControl = OKBtn
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Buttons'
  ClientHeight = 353
  ClientWidth = 564
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 8
    Top = 48
    Width = 151
    Height = 13
    Caption = 'Click on a button below to edit it'
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object TestBtn: TBigBtn
    Left = 224
    Top = 302
    Width = 60
    Height = 23
    Hint = 'Sample Button|This is a sample of the current button'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = TestBtnClick
  end
  object Label14: TLabel
    Left = 8
    Top = 32
    Width = 89
    Height = 13
    Caption = 'Stored Buttons:'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object OKBtn: TBitBtn
    Left = 320
    Top = 300
    Width = 77
    Height = 27
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 402
    Top = 300
    Width = 77
    Height = 27
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = CancelBtnClick
    Kind = bkCancel
    Spacing = -1
    IsControl = True
  end
  object ButtonList: TListBox
    Left = 8
    Top = 66
    Width = 154
    Height = 225
    ExtendedSelect = False
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 2
    OnClick = ButtonListClick
    OnMouseDown = ButtonListMouseDown
  end
  object NewBtn: TBitBtn
    Left = 8
    Top = 300
    Width = 62
    Height = 27
    Hint = 'Create a new button'
    Caption = '&New'
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = NewBtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
      0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
      33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object BitBtn2: TBitBtn
    Left = 484
    Top = 300
    Width = 77
    Height = 27
    HelpContext = 150
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Kind = bkHelp
    Spacing = -1
    IsControl = True
  end
  object UpBtn: TBitBtn
    Left = 168
    Top = 304
    Width = 22
    Height = 22
    Hint = 'Move Button Up'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = UpBtnClick
    Glyph.Data = {
      90010000424D9001000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      333333333333333333333333333333333333333333333333333333E444444444
      44433338FFFFFFFFFFFF33E6666666666643333833333333333F333E66666666
      643333338333333333F33333E666666643333333383333333F3333333E666664
      3333333333833333F333333333E66643333333333338333F33333333333E6433
      33333333333383F3333333333333E33333333333333338333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333000000000000
      0000000000000000000000000000000000000000}
    Margin = 0
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object DownBtn: TBitBtn
    Left = 191
    Top = 304
    Width = 22
    Height = 22
    Hint = 'Move Button Down'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = DownBtnClick
    Glyph.Data = {
      90010000424D9001000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      333333333333333333333333333343333333333333333F333333333333346433
      333333333333F383333333333346664333333333333F33383333333334666664
      3333333333F333338333333346666666433333333F3333333833333466666666
      64333333F3333333338333E6666666666643333F33333333333833EEEEEEEEEE
      EE43333FFFFFFFFFFFF833333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333000000000000
      0000000000000000000000000000000000000000}
    Margin = 0
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object DelBtn: TBitBtn
    Left = 136
    Top = 300
    Width = 27
    Height = 27
    Hint = '|Delete button'
    TabOrder = 7
    OnClick = DelBtnClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
      3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
      33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
      33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
      333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
      03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
      33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
      0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
      3333333337FFF7F33333333330000033333333333777773333330000}
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object ButtonTab: TTabbedNotebook
    Left = 168
    Top = 24
    Width = 393
    Height = 268
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabsPerRow = 6
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 8
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Button'
      object Image1: TImage
        Left = 32
        Top = 8
        Width = 32
        Height = 32
        AutoSize = True
      end
      object Label8: TLabel
        Left = 72
        Top = 8
        Width = 277
        Height = 13
        Caption = 'Push buttons are labelled with the Off Caption and execute'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 88
        Top = 23
        Width = 154
        Height = 13
        Caption = 'the On Command when pressed.'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 72
        Top = 40
        Width = 261
        Height = 13
        Caption = 'Toggle buttons store their state in the specified Variable'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 88
        Top = 56
        Width = 292
        Height = 13
        Caption = 'and display the Off Caption when off, the On Caption when on'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 88
        Top = 72
        Width = 225
        Height = 13
        Caption = 'execute the On Command when pressed once, '
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 88
        Top = 88
        Width = 183
        Height = 13
        Caption = 'the Off Command when pressed again.'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 22
        Top = 122
        Width = 56
        Height = 13
        Alignment = taRightJustify
        Caption = 'Off Caption:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object OnLabel: TLabel
        Left = 22
        Top = 146
        Width = 56
        Height = 13
        Alignment = taRightJustify
        Caption = 'On Caption:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 11
        Top = 170
        Width = 67
        Height = 13
        Alignment = taRightJustify
        Caption = 'On Command:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object OffLabel: TLabel
        Left = 11
        Top = 194
        Width = 67
        Height = 13
        Alignment = taRightJustify
        Caption = 'Off Command:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 88
        Top = 168
        Width = 20
        Height = 20
        Hint = 'Edit On Command|'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF7733333033000000033333373377777773330000}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 88
        Top = 192
        Width = 20
        Height = 20
        Hint = 'Edit Off Command|'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF7733333033000000033333373377777773330000}
        NumGlyphs = 2
        OnClick = SpeedButton2Click
      end
      object Label5: TLabel
        Left = 221
        Top = 122
        Width = 41
        Height = 13
        Alignment = taRightJustify
        Caption = 'Variable:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object OffCaption: TEdit
        Left = 88
        Top = 120
        Width = 121
        Height = 21
        Hint = '|The Off caption is displayed on the button when it is off'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnChange = OffCaptionChange
      end
      object OnCaption: TEdit
        Left = 88
        Top = 144
        Width = 121
        Height = 21
        Hint = '|The On Caption is displayed on the button when it is on'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnChange = OnCaptionChange
      end
      object OnCommand: TEdit
        Left = 112
        Top = 168
        Width = 265
        Height = 21
        Hint = '|The commands to execute when the button is pushed on'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnChange = OnCommandChange
      end
      object OffCommand: TEdit
        Left = 112
        Top = 192
        Width = 265
        Height = 21
        Hint = '|The commands to execute when a toggle button is pushed off'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnChange = OffCommandChange
      end
      object IsToggle: TCheckBox
        Left = 6
        Top = 68
        Width = 59
        Height = 17
        Hint = '|If selected, button is a toggle, otherwise it is a push button'
        Alignment = taLeftJustify
        Caption = 'Toggle:'
        TabOrder = 4
        OnClick = IsToggleClick
      end
      object Toggle: TEdit
        Left = 272
        Top = 120
        Width = 105
        Height = 21
        Hint = '|The state of the button (0/1) is stored in the variable'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnChange = OnCaptionChange
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Advanced'
      object Label1: TLabel
        Left = 184
        Top = 146
        Width = 43
        Height = 13
        Caption = 'ON Color'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton3: TSpeedButton
        Left = 358
        Top = 144
        Width = 21
        Height = 21
        Hint = 'Change On color'
        Margin = 1
        NumGlyphs = 2
        OnClick = SpeedButton3Click
      end
      object Label4: TLabel
        Left = 184
        Top = 122
        Width = 47
        Height = 13
        Caption = 'OFF Color'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton4: TSpeedButton
        Tag = 1
        Left = 358
        Top = 120
        Width = 21
        Height = 21
        Hint = 'Change Off color'
        Margin = 1
        NumGlyphs = 2
        OnClick = SpeedButton3Click
      end
      object Label17: TLabel
        Left = 48
        Top = 42
        Width = 31
        Height = 13
        Caption = 'Width:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label18: TLabel
        Left = 48
        Top = 66
        Width = 34
        Height = 13
        Caption = 'Height:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 48
        Top = 122
        Width = 21
        Height = 13
        Caption = 'Left:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label20: TLabel
        Left = 48
        Top = 146
        Width = 22
        Height = 13
        Caption = 'Top:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 184
        Top = 42
        Width = 51
        Height = 13
        Caption = 'Bitmap File'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton5: TSpeedButton
        Left = 358
        Top = 41
        Width = 20
        Height = 20
        Hint = 'Change bitmap filename|'
        Glyph.Data = {
          90010000424D9001000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555555555555555500000000000555550000000000
          05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
          B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
          B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
          B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
          0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
          5555550000055555555555000005555555555555555555555555555555555555
          5555555555555555555555555555555555555555555555555555000000000000
          0000000000000000000000000000000000000000}
        NumGlyphs = 2
        OnClick = SpeedButton5Click
      end
      object Label22: TLabel
        Left = 184
        Top = 66
        Width = 67
        Height = 13
        Caption = 'Bitmap Margin'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 48
        Top = 194
        Width = 30
        Height = 13
        Alignment = taRightJustify
        Caption = 'Value:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object OnColor: TEdit
        Left = 256
        Top = 144
        Width = 97
        Height = 21
        Hint = '|Color of button face when On'
        TabStop = False
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        Text = 'Sample Text'
      end
      object OffColor: TEdit
        Left = 256
        Top = 120
        Width = 97
        Height = 21
        Hint = '|Color of button face when Off'
        TabStop = False
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        Text = 'Sample Text'
      end
      object ButWidth: TSpinEdit
        Left = 88
        Top = 40
        Width = 57
        Height = 22
        Hint = '|Width of button in pixels (default is 60)'
        MaxValue = 999
        MinValue = 1
        TabOrder = 2
        Value = 60
        OnChange = ButWidthChange
      end
      object ButHeight: TSpinEdit
        Left = 88
        Top = 64
        Width = 57
        Height = 22
        Hint = '|Height of button in pixels (default is 23)'
        MaxValue = 999
        MinValue = 1
        TabOrder = 3
        Value = 23
        OnChange = ButWidthChange
      end
      object ButLeft: TSpinEdit
        Left = 88
        Top = 120
        Width = 57
        Height = 22
        Hint = '|Left position of button in pixels'
        MaxValue = 999
        MinValue = 0
        TabOrder = 4
        Value = 1
        OnChange = ButWidthChange
      end
      object ButTop: TSpinEdit
        Left = 88
        Top = 144
        Width = 57
        Height = 22
        Hint = '|Top position of button in pixels'
        MaxValue = 999
        MinValue = 0
        TabOrder = 5
        Value = 1
        OnChange = ButWidthChange
      end
      object AutoSize: TCheckBox
        Left = 16
        Top = 16
        Width = 85
        Height = 17
        Hint = '|Uncheck to customize the button size'
        Alignment = taLeftJustify
        Caption = 'Auto Size'
        TabOrder = 6
        OnClick = AutoSizeClick
      end
      object AutoPos: TCheckBox
        Left = 16
        Top = 96
        Width = 85
        Height = 17
        Hint = '|Uncheck to customize the position of the button'
        Alignment = taLeftJustify
        Caption = 'Auto Position'
        TabOrder = 7
        OnClick = AutoSizeClick
      end
      object Seper: TCheckBox
        Left = 184
        Top = 16
        Width = 85
        Height = 17
        Hint =
          '|If checked, button width/height is used as a blank separator sp' +
          'ace'
        Alignment = taLeftJustify
        Caption = 'Separator'
        TabOrder = 8
        OnClick = SeperClick
      end
      object BitName: TEdit
        Left = 256
        Top = 40
        Width = 97
        Height = 21
        Hint = '|Name of BMP file to display on button'
        TabOrder = 9
        OnChange = BitNameChange
      end
      object Margin: TSpinEdit
        Left = 256
        Top = 64
        Width = 57
        Height = 22
        Hint = '|Margin between bitmap and button caption (-1 centers)'
        MaxValue = 999
        MinValue = -1
        TabOrder = 10
        Value = -1
        OnChange = BitNameChange
      end
      object Button1: TButton
        Left = 256
        Top = 168
        Width = 97
        Height = 25
        Hint = '|Reset button color to default (gray)'
        Caption = 'Default Colors'
        TabOrder = 11
        OnClick = Button1Click
      end
      object BoolVal: TEdit
        Left = 88
        Top = 192
        Width = 105
        Height = 21
        Hint = '|Expression used to control state of button'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 12
        OnChange = OnCaptionChange
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Location'
      object Image2: TImage
        Left = 32
        Top = 8
        Width = 32
        Height = 32
        AutoSize = True
      end
      object Label15: TLabel
        Left = 72
        Top = 8
        Width = 169
        Height = 13
        Caption = 'Select the location of the button bar'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 88
        Top = 23
        Width = 173
        Height = 13
        Caption = 'or select None to hide the button bar'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object GroupBox5: TGroupBox
        Left = 80
        Top = 60
        Width = 113
        Height = 121
        Caption = 'Location'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Top: TRadioButton
          Left = 24
          Top = 24
          Width = 65
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Top'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = TopClick
        end
        object Bottom: TRadioButton
          Left = 24
          Top = 40
          Width = 65
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Bottom'
          TabOrder = 1
          OnClick = TopClick
        end
        object Left: TRadioButton
          Left = 24
          Top = 56
          Width = 65
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Left'
          TabOrder = 2
          OnClick = TopClick
        end
        object Right: TRadioButton
          Left = 24
          Top = 72
          Width = 65
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Right'
          TabOrder = 3
          OnClick = TopClick
        end
        object None: TRadioButton
          Left = 24
          Top = 88
          Width = 65
          Height = 17
          Alignment = taLeftJustify
          Caption = 'None'
          TabOrder = 4
          OnClick = TopClick
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 564
    Height = 22
    Align = alTop
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 9
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 42
      Height = 20
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object TopBtn: TSpeedButton
        Left = 0
        Top = 0
        Width = 20
        Height = 20
        Hint = 'Keep on top|Forces this dialog to display on top of others'
        AllowAllUp = True
        GroupIndex = 1
        NumGlyphs = 2
        OnClick = TopBtnClick
      end
      object LoadBtn: TSpeedButton
        Left = 20
        Top = 0
        Width = 20
        Height = 20
        Hint =
          'Update for active MUD|Loads button settings for current characte' +
          'r window'
        NumGlyphs = 2
        OnClick = LoadBtnClick
      end
    end
    object Panel3: TPanel
      Left = 43
      Top = 1
      Width = 520
      Height = 20
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object AliasBtn: TBtnPanel
        Left = 0
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Aliases'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = AliasBtnClick
      end
      object VarBtn: TBtnPanel
        Left = 64
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Variables'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = VarBtnClick
      end
      object MacroBtn: TBtnPanel
        Left = 128
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Macros'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = MacroBtnClick
      end
      object ButBtn: TBtnPanel
        Left = 192
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Buttons'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = ButBtnClick
      end
      object TrigBtn: TBtnPanel
        Left = 256
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Triggers'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = TrigBtnClick
      end
      object WalkBtn: TBtnPanel
        Left = 320
        Top = 0
        Width = 88
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Speedwalking'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = WalkBtnClick
      end
    end
  end
  object CopyBtn: TBitBtn
    Left = 72
    Top = 300
    Width = 62
    Height = 27
    Hint = '|Make a copy of the selected button'
    Caption = '&Copy'
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = CopyBtnClick
    Glyph.Data = {
      56070000424D5607000000000000360400002800000028000000140000000100
      0800000000002003000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
      A600000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
      03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
      0303030303030303030000000000000000000003030303030303030303F8F8F8
      F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
      0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
      FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
      0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
      03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
      FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
      F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
      FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
      FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
      0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
      0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
      F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
      0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
      FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
      0303030300FF070707070707FF0003030303030303030303F8FF030303030303
      03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
      F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
      0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
      FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
      030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
      0303030303030303030303030303030303030303030303030303030303030303
      0303030303030303030303030303030303030303030303030303030303030303
      0303030303030303030303030303030303030303030303030303}
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object HelpPanel: TPanel
    Left = 0
    Top = 333
    Width = 564
    Height = 20
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
  end
  object PopupMenu1: TPopupMenu
    Left = 16
    Top = 64
    object MoveUp1: TMenuItem
      Caption = 'Move Up'
      ShortCut = 0
      OnClick = UpBtnClick
    end
    object MoveDown1: TMenuItem
      Caption = 'Move Down'
      ShortCut = 0
      OnClick = DownBtnClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object New1: TMenuItem
      Caption = 'New'
      ShortCut = 0
      OnClick = NewBtnClick
    end
    object Copy1: TMenuItem
      Caption = 'Copy'
      ShortCut = 0
      OnClick = CopyBtnClick
    end
    object Delete1: TMenuItem
      Caption = 'Delete'
      ShortCut = 0
      OnClick = DelBtnClick
    end
  end
  object OpenBmp: TOpenDialog
    DefaultExt = 'BMP'
    FileEditStyle = fsEdit
    Filter = 'Images|*.bmp'
    Left = 56
    Top = 64
  end
end